home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / lisp / wcl-21.lha / wcl-2.1 / src / build / cross-setup.lisp < prev    next >
Lisp/Scheme  |  1992-09-10  |  751b  |  27 lines
  1. ;;; (C) Copyright 1990-1992 by Wade L. Hennessey. All rights reserved.
  2.  
  3. (in-package "W")
  4.  
  5. #+LUCID
  6. (progn (shadow '("PARSE-BODY" "FOREIGN-FUNC-P" "DEFINE-MACRO") "W")
  7.        (setf *warn-if-no-in-package* nil)
  8.        (setf *print-structure* nil))
  9.  
  10. ;;; Need to use WCL bq for cross compilation
  11. (load "../cl/decls/bq.lisp")
  12. (load "../cl/functions/backquote.lisp")
  13. (set-macro-character #\` #'char-macro-read-backquote)
  14. (set-macro-character #\, #'char-macro-read-comma)
  15.  
  16. (setf *print-gensym* nil)
  17. (setf *print-array* t)
  18. (setf *print-pretty* nil)
  19. (setf *debug-print-length* 30)
  20. (setf *debug-print-level* 5)
  21.  
  22. (defun bw ()
  23.   #+LUCID (clear-undef)
  24.   (proclaim '(optimize (speed 0) (safety 3) (compilation-speed 3) (space 0)))
  25.   (build-system :cross-compiler))
  26.  
  27.